home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / misc / math / mathan.lha / mathan / rexx / Mathan.Prow < prev   
Encoding:
Text File  |  1997-07-27  |  391 b   |  26 lines
  1. /*
  2. ** $VER: Mathan.ProW
  3. **
  4. ** Mathan ARexx Macro for ProWrite 3.3
  5. **
  6. ** (You must select the text to evaluate)
  7. **
  8. */
  9.  
  10. OPTIONS RESULTS
  11.  
  12. Extract                    /* Extract the selected text */
  13. text=RESULT
  14. ADDRESS 'Mathan'
  15. text                        /* Send string to Mathan */
  16. rlin=RESULT
  17. ADDRESS
  18. IF Open(file,'T:mth.txt',WRITE) THEN DO
  19.     WriteLn(file,text)
  20.     WriteLn(file,rlin)
  21.     Close(file)
  22.     InsertText 'T:mth.txt'
  23.     END
  24.     
  25.  
  26.